asm: tfws ( addr --)
    *sp+ r1 mov,        \ pop new ws address
    r1 $A00A @@ mov,    \ load into ws restore vector (for KEY)
    r1 r2 mov,          \ copy addr
    
    r2 6 ai,            \ point to r3 in target ws
    r3 r2 *+ mov,       \ copy program counter
    r4 r2 *+ mov,       \ data stack pointer
    r5 r2 *+ mov,       \ copy return stack pointer

    r2 12 ai,           \ point to r12 in target ws
    r12 r2 *+ mov,      \ copy NEXT pointer
    r0 $02E0 li,        \ LWPI op-code
    r2 $045C li,        \ NEXT op-code
    
    r0 b,               \ execute the code in this workspace
;asm
